<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2934</cardID>
<listID>2096</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><true /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ ∞∞ IRACLE 2000 ∞∞ ∞∞ concept, idea and programming ∞∞ ∞∞ by ∞∞ ∞∞ Philipp Ruch (15) ∞∞ ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on startupset cantabort of this stack to trueset blindtyping to falsehide menubarhide Titlebarlock error Dialogs --<<<if cantmodify of this stack=true thenget privatedlog(2002)end ifput listmonitors() into coloursif item 8 of colours<"8" thenget privatedlog(2012)end ifif item 6 of colours<"8" and item 8 of colours="8" thenget privatedlog(2013)setmode c,8end ifif item 6 of colours<"16" and item 8 of colours>"8" thenget privatedlog(2013)setmode c,16end ifxwindowFramecolorizehc "new",2001,the rect of this cdend startupon openstackdomenu "next window"put 100 into FadeRatioFade2 in,3,0,0,0Progress2 "Standard",rectsetspeakervol(4)--set userlevel to 5 --<<<play "start"Fade2 outcolorizehc disposecolorizehc "new",2000colorizehc add,2002if the value of the selectedline of button id 82="Sound off" thenput item 1 of the topleft of button "soundfield"+1 into dsput ","&item 2 of the topleft of button "soundfield"+1 after dscolorizehc "add","1010",dsend ifif the hilite of button "1 player"="false" thenset the hilite of button "1 player" to truesend "mouseup x" to button "1 player"end ifsend "mousedown modei" to button "new game"wait until the sound is doneFade2 in,3,0,0,0-- show menubar --<<<go this cdclose window progressdomenu "next window"Fade2 outend openstackon closestackput empty into cd fld speakend closestackon error xbeepif x="1" thenget privatedlog(2001)if the result≠empty thenanswer "You can take out iracles from only one row!"&return&"----------------------------------------------------------------------------"&return&return&"PRESS the ""e&"Player (or Human) … is up""e&"-BUTTON, if you've FINISHED!"end ifelse if x="2" thenget privatedlog(2002)if the result≠empty thenanswer "This game is over!"&return&"----------------------------------------------------------------------------"&return&return&"Click ""e&"new game""e&"!"end ifelse if x="3" thenget privatedlog(2003)if the result≠empty thenanswer "Sorry, but nobody took out an iracle till now!"&return&"----------------------------------------------------------------------------"&return&return&"Take out an iracle!"end ifend ifend erroron wingraphicif the short name of button id 114="Player 1 is up" thenget privatedlog(2006)else if the short name of button id 114="Player 2 is up" thenget privatedlog(2005)else if the short name of button id 114="Computer is up" thenget privatedlog(2008)play "sad"wait until the sound is doneelse if the short name of button id 114="Human is up" thenget privatedlog(2007)colorizehc add,10022,the topleft of button smilego this cdplay "blll"wait until the sound is doneend ifend wingraphicon Keydown --<if the value of the selectedline of button id 82≠"Sound off" thenif the soundchannel="4" then set the soundchannel to 1else set the soundchannel to value (the soundchannel)+1play "Click 1"end ifend Keydown --<on commandkeydown x --<if x="Q" then pass commandkeydownif the value of the selectedline of button id 82≠"Sound off" thenif the soundchannel="4" then set the soundchannel to 1else set the soundchannel to value (the soundchannel)+1play "Click 1"end ifend commandkeydown --<on arrowKey --<if the value of the selectedline of button id 82≠"Sound off" thenif the soundchannel="4" then set the soundchannel to 1else set the soundchannel to value (the soundchannel)+1play "Click 1"end ifend arrowkey --<on idleif the last char of the seconds="0" or the last char of the seconds="5" thenif the seconds≠line 5 of cd fld ab thensend speak&random(146) to button smileput the seconds into line 5 of cd fld abend ifcolorizehc "add",1000&random(9),the topleft of button "smile"go this cdend ifend idle</script>
